home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Uptime_The_Disk_Monthly_V1_12_19xx_Uptime_staff_Side_A.d64 / back issue info (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  13KB  |  440 lines
  1. 10 poke53281,0:poke53280,0:printchr$(147);chr$(14);chr$(8);:poke646,1
  2. 15 f$="vol 1"
  3. 20 gosub1420
  4. 30 print"[150]"tab(14)"[208]ublished by"
  5. 32 printtab(7)"[214]iking [212]echnologies, [201]nc."
  6. 35 printtab(13)"[210]eading file..."
  7. 40 print""tab(7)"[155]([195])1987 [194]arbara [200]. [211]chulak"
  8. 50 nc=5:n=0:na=3:dimar$(na)
  9. 60 dim af$(50),a$(na,400)
  10. 70 sp$="":fori=1to20:sp$=sp$+" ":next
  11. 80 fori=1tonc:readaf$(i):next
  12. 90 data "[198]eature","[197]ntertainment","[208]roductivity"
  13. 100 data "[213]tility","[210]eview"
  14. 110 gosub260:iffthenrun
  15. 120 :
  16. 130 gosub1425
  17. 140 print""tab(6)"[150][1] [196]isplay by [201]ssue
  18. 150 [153][163]6)"[2] str$isplay by lenategory
  19. 160 printtab(6)"[3] [207]rdering [201]nformation
  20. 170 [153][163]6)"[4] (NULL)eturn to (NULL)p(NULL)ime
  21. 180 printtab(6)"[155][211]elect [1-4]:"
  22. 190 getk$:ifk$=""then190
  23. 200 k=val(k$):ifk<1ork>4then190
  24. 210 ifk=4thengosub 3500:goto 130
  25. 220 onkgosub350,580,1980
  26. 230 print"[147]";:goto130
  27. 240 :
  28. 260 open15,8,15,"i0"
  29. 270 open2,8,2,"0:"+f$+",s,r"
  30. 280 gosub1220:iffthenreturn
  31. 290 input#2,n
  32. 300 fori=1ton:forj=1tona
  33. 310 input#2,a$(j,i)
  34. 320 next:next
  35. 330 close2:close15:return
  36. 340 :
  37. 350 gosub1660:iff2thenreturn
  38. 360 print"[155][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  39. 370 print"[221]        [213]p[212]ime: [214]ol. "vo$;", [206]o. "is$"       [155][221]";
  40. 380 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
  41. 390 print"[155][221] [195]ategory      [193]rticle/[208]rogram        [221]";
  42. 400 print"[155][171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
  43. 410 gosub1870:j=1
  44. 420 z=1
  45. 421 ifis$="01"thenz=1
  46. 422 ifis$="02"thenz=14
  47. 423 ifis$="03"thenz=28
  48. 424 ifis$="04"thenz=43
  49. 425 ifis$="05"thenz=59
  50. 426 ifis$="06"thenz=76
  51. 427 ifis$="07"thenz=93
  52. 428 ifis$="08"thenz=110
  53. 429 ifis$="09"thenz=129
  54. 430 ifis$="10"thenz=146
  55. 431 ifis$="11"thenz=162
  56. 432 ifis$="12"thenz=177
  57. 439 ifa$(2,z)<>vi$then510
  58. 440 l=23-len(a$(1,z))
  59. 450 v=val(a$(3,z)):l1=14-len(af$(v))
  60. 460 printspc(2)"[150]";af$(v)left$(sp$,l1);
  61. 470 print a$(1,z)left$(sp$,l)"";
  62. 478 ifj=13andis$="01"then520
  63. 479 ifj=14andis$="02"then520
  64. 480 ifj=15andis$="03"then520
  65. 481 ifj=16andis$="04"then520
  66. 482 ifj=17andis$="05"then520
  67. 483 ifj=17andis$="06"then520
  68. 484 ifj=17andis$="07"then520
  69. 485 ifj=19andis$="08"then520
  70. 486 ifj=17andis$="09"then520
  71. 487 ifj=17andis$="10"then520
  72. 488 ifj=15andis$="11"then520
  73. 489 ifj=23andis$="12"then520
  74. 490 ifj=15 and z<n thengosub1170:print"";:gosub1870
  75. 500 j=j+1
  76. 510 z=z+1:ifz<=nthen440
  77. 520 getk$:ifk$=""then520
  78. 530 ifk$=chr$(13)thenprint"[147]";:return
  79. 540 ifk$="p"thengosub800
  80. 545 if f1 then f1=0:goto 360
  81. 550 goto520
  82. 560 gosub1170:return
  83. 570 :
  84. 580 gosub1540:iff2thenreturn
  85. 590 print"[155][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  86. 592 print"[221]                                      [221]";
  87. 595 a$="[213]p[212]ime "+af$(ch)
  88. 597 a=20-(len(a$)/2)
  89. 600 print"[145]"spc(a)a$
  90. 610 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
  91. 620 print"[155][221] [193]rticle/[208]rogram        [214]ol/[201]ssue     [221]";
  92. 630 print"[155][171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
  93. 640 gosub1870:j=1
  94. 650 z=1
  95. 660 ifval(a$(3,z))<>ch then720
  96. 670 l=22-len(a$(1,z))
  97. 680 print"[155][221][150] ";a$(1,z)+left$(sp$,l);"  ";
  98. 690 printa$(2,z);"        [155][221]";
  99. 700 ifj=15thengosub1320:print"";:gosub1870:j=0
  100. 710 j=j+1
  101. 720 z=z+1:ifz<=nthen660
  102. 730 getk$:ifk$=""then730
  103. 740 ifk$=chr$(13)thenreturn
  104. 750 ifk$="p"thengosub990
  105. 755 if f1 then 590
  106. 760 goto730
  107. 770 :
  108. 780 gosub1170:return
  109. 790 :
  110. 800 remgosub4200:iff2thenreturn
  111. 810 gosub1370:iff1thengosub3280:return
  112. 820 open 4,4:close 4
  113. 825 if st<>0 then gosub 3600:return
  114. 826 open 4,4,7
  115. 830 cmd4:in$="                    "
  116. 840 printin$;"----------------------------------------"
  117. 850 printin$;": [213][208][212][201][205][197]:       [214]ol. "vo$;", [206]o. "is$"        :"
  118. 860 printin$;"----------------------------------------"
  119. 870 printin$;": [195]ategory      [193]rticle/[208]rogram        :"
  120. 880 printin$;"----------------------------------------"
  121. 890 fori=1ton
  122. 900 ifa$(2,i)<>vi$then950
  123. 910 l=22-len(a$(1,i))
  124. 920 v=val(a$(3,i)):l1=12-len(af$(v))
  125. 930 printin$;": ";af$(v);
  126. 940 printa$(1,i)+left$(sp$,l);" :"
  127. 950 next
  128. 960 printin$;"----------------------------------------"
  129. 970 print#4,chr$(12):close4:gosub3280:return
  130. 980 :
  131. 990 remgosub4100:iff2thenreturn
  132. 1000 gosub1370:iff1thengosub3280:return
  133. 1010 open 4,4:close 4
  134. 1015 if st<>0 then gosub3600:return
  135. 1016 open 4,4,7
  136. 1020 cmd4:in$="                    "
  137. 1030 printin$;"----------------------------------------"
  138. 1040 printin$;":          [213][208][212][201][205][197]:  ";af$(ch);"     :"
  139. 1050 printin$;"----------------------------------------"
  140. 1060 printin$;": [193]rticle/[208]rogram        [214]ol/[201]ssue     :"
  141. 1070 printin$;"----------------------------------------"
  142. 1080 fori=1ton
  143. 1090 ifval(a$(3,i))<>ch then1130
  144. 1100 l=22-len(a$(1,i))
  145. 1110 printin$;": ";a$(1,i)+left$(sp$,l);"  ";
  146. 1120 printa$(2,i);"        :"
  147. 1130 next
  148. 1140 printin$;"----------------------------------------"
  149. 1150 print#4,chr$(12):close4:gosub3280:return
  150. 1160 :
  151. 1170 getk$:ifk$=""then1170
  152. 1180 ifk$="p"thengosub800
  153. 1185 if f1 then f1=0:return
  154. 1190 ifk$<>chr$(13)then1170
  155. 1200 return
  156. 1210 :
  157. 1220 f=0:e$=""
  158. 1225 get#15,a$:if a$=chr$(13) then 1230
  159. 1227 e$=e$+a$:goto 1225
  160. 1230 ifleft$(e$,2)="00" thenreturn
  161. 1240 close2:close15:f=1
  162. 1250 goto 3700               
  163. 1260 printtab(7)"[196]isk error!"
  164. 1270 printtab(7)"";e;e$;e1;e2
  165. 1280 printtab(7)"[208]ress [210][197][212][213][210][206] to continue."
  166. 1290 getk$:ifk$<>chr$(13)then1290
  167. 1300 return
  168. 1310 :
  169. 1320 getk$:ifk$=""then1320
  170. 1330 ifk$="p"thengosub990
  171. 1335 if f1 then return
  172. 1340 ifk$<>chr$(13)then1320
  173. 1350 return
  174. 1360 :
  175. 1370 f1=0
  176. 1375 print"[155]          [208]rinter ready [[217]/[206]]        "
  177. 1380 getk$:ifk$<>"y" and k$<>"n" then 1380
  178. 1390 ifk$<>"y"thenf1=1
  179. 1400 return
  180. 1410 :
  181. 1420 print"[147]";
  182. 1425 print""
  183. 1430 printtab(4)"[155][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  184. 1440 printtab(4)"[221]                              [155][221]"
  185. 1450 printtab(4)"[221]   [213]p[212]ime[160][194]ack [201]ssue [201]ndex    [155][221]"
  186. 1460 printtab(4)"[221]                              [155][221]"
  187. 1470 printtab(4)"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  188. 1480 fori=1to8:printtab(4)"[221][150]                              [155][221]":next
  189. 1490 printtab(4)"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  190. 1500 printtab(4)"[221]                              [155][221]"
  191. 1510 printtab(4)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  192. 1515 printtab(4)"                                "
  193. 1520 return
  194. 1530 :
  195. 1540 gosub1425:f2=0
  196. 1550 print""tab(6)"[150]1] [198]eatures
  197. 1560 [153][163]6)"2] valntertainment
  198. 1570 printtab(6)"3] [208]roductivity
  199. 1580 [153][163]6)"4] (NULL)tilities
  200. 1590 printtab(6)"5] [210]eviews
  201. 1600 [153][163]6)"list(NULL)elect # or (NULL)val(NULL)(NULL)(NULL)(NULL) to exit."
  202. 1610 [161]k$:[139]k$[178]""[167]1610
  203. 1620 [139]k$[178][199](13)[167]f2[178]1:[142]
  204. 1630 ch[178][197](k$):[139]ch[179]1[176]ch[177]5[167]1610
  205. 1640 [142]
  206. 1650 :
  207. 1660 [141]1425:vo$[178]"1":vo[178]1:f2[178]0
  208. 1670 [153]""[163]6)"list(NULL)elect # or (NULL)val(NULL)(NULL)(NULL)(NULL) to exit."
  209. 1680 [153]""
  210. 1690 [153][163]6)"def(NULL)olume 1"
  211. 1700 [143] k$="":getk$:ifk$=""then4215
  212. 1710 [143] ifk$=chr$(13)then4230
  213. 1720 [143] vo=val(k$):ifvo<1orvo>9then4215
  214. 1730 [143] vo$=vo$+k$:printk$;:goto4215
  215. 1740 [143] ifval(vo$)>1thengosub4400:goto4200
  216. 1750 is$[178]"":is[178]0:[153]:[153][163]6)"defright$ssue [1-12]:    cmdcmdcmd";
  217. 1760 [161]k$:[139]k$[178]"" [167] 1760
  218. 1770 [139]k$[178][199](13)[167]1800
  219. 1775 [139] k$[179]"0" [176] k$[177]"9" [167] 1760
  220. 1780 [153]k$;:is$[178]is$[170]k$:is[178][197](is$)
  221. 1785 [139]is[179]1[176]is[177]12 [167][153]"onon":[137] 1750
  222. 1790 [137]1760
  223. 1800 [143] ifval(is$)>7thengosub4400:goto4200
  224. 1810 [139][197](vo$)[179]10[167]vo$[178]"0"[170][202]([196](vo),2)
  225. 1820 [139][197](is$)[179]10[167]is$[178]"0"[170][202]([196](is),2)
  226. 1830 vi$[178]vo$[170]"/"[170]is$
  227. 1840 [139]is[178]0[167]f2[178]1
  228. 1850 [142]
  229. 1860 :
  230. 1870 [129]i[178]1[164]17:[153]"list(NULL)def                                      list(NULL)";:[130]
  231. 1880 [153]"-tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan<";
  232. 1890 [153]"list(NULL) (NULL)val(NULL)(NULL)(NULL)(NULL)=lenontinue         (NULL)=(NULL)rint ascile list(NULL)";
  233. 1900 [153]"list/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan";
  234. 1910 [151]2023,253:[151]56295,15
  235. 1920 [142]
  236. 1930 :
  237. 1940 [143] print""tab(12)"listright$nvalid choice"
  238. 1950 [143] fort=1to1000:next
  239. 1960 [143] return
  240. 1970 :
  241. 1980 [153]"listortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^";
  242. 1990 [153]"list(NULL)      (NULL)(NULL)(NULL)right$(NULL)val (NULL)rdering right$nformation     (NULL)";
  243. 2000 [153]"-tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan<";
  244. 2010 [153]"(NULL)def                                      list(NULL)";
  245. 2020 [153]"(NULL)def    atnny or all of the (NULL)p(NULL)ime back     list(NULL)";
  246. 2030 [153]"(NULL)def issue disks are now available.  (NULL)o   list(NULL)";
  247. 2040 [153]"(NULL)def order, you may either call us, toll  list(NULL)";
  248. 2050 [153]"(NULL)def free, at (800) 437-0033, or use our  list(NULL)";
  249. 2060 [153]"(NULL)def back issue order form, available by  list(NULL)";
  250. 2070 [153]"(NULL)def simply pressing the letter '(NULL)'.      list(NULL)";
  251. 2080 [153]"(NULL)def                                      list(NULL)";
  252. 2090 [153]"(NULL)def (NULL)rices for back issues are:          list(NULL)";
  253. 2100 [153]"(NULL)def                                      list(NULL)";
  254. 2110 [153]"(NULL)def                                      list(NULL)";
  255. 2120 [153]"(NULL)def      $15.95 for any 1 disk           list(NULL)";
  256. 2130 [153]"(NULL)def      $39.94 for any 3 disks          list(NULL)";
  257. 2140 [153]"(NULL)def      $69.95 for any 6 disks          list(NULL)";
  258. 2150 [153]"(NULL)def                                      list(NULL)";
  259. 2160 [153]"(NULL)def                                      list(NULL)";
  260. 2170 [153]"(NULL)def                                      list(NULL)";
  261. 2180 [153]"(NULL)def                                      list(NULL)";
  262. 2190 [153]"(NULL)def                                      list(NULL)";
  263. 2200 [153]"-tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan<";
  264. 2210 [153]"(NULL) (NULL)val(NULL)(NULL)(NULL)(NULL)=lenontinue         (NULL)=(NULL)rint ascorm (NULL)";
  265. 2220 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan";
  266. 2230 [151]2023,253:[151]56295,15
  267. 2240 [161]k$:[139]k$[178]""[167]2240
  268. 2250 [139]k$[178][199](13)[167]2290
  269. 2260 [139]k$[178]"p"[167][141]2580
  270. 2265 [139] f1 [167] 1980
  271. 2270 [137]2240
  272. 2280 :
  273. 2290 [153]"(NULL)      (NULL)(NULL)(NULL)right$(NULL)val (NULL)rdering right$nformation     (NULL)";
  274. 2300 [153]"-{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}<";
  275. 2310 [153]"(NULL)def                                      list(NULL)";
  276. 2320 [153]"(NULL)def    (NULL)o ensure that you don't miss a   list(NULL)";
  277. 2330 [153]"(NULL)def single issue of (NULL)p(NULL)ime, you may      list(NULL)";
  278. 2340 [153]"(NULL)def also renew your present subscrip-    list(NULL)";
  279. 2350 [153]"(NULL)def tion to (NULL)p(NULL)ime.  (NULL)imply press the    list(NULL)";
  280. 2360 [153]"(NULL)def letter '(NULL)' to receive your order     list(NULL)";
  281. 2370 [153]"(NULL)def form.                                list(NULL)";
  282. 2380 [153]"(NULL)def                                      list(NULL)";
  283. 2390 [153]"(NULL)def    (NULL)enewal prices are:               list(NULL)";
  284. 2400 [153]"(NULL)def                                      list(NULL)";
  285. 2410 [153]"(NULL)def    $119.95 for 24 disk issues        list(NULL)";
  286. 2420 [153]"(NULL)def     $69.95 for 12 disk issues        list(NULL)";
  287. 2430 [153]"(NULL)def     $49.95 for  6 disk issues        list(NULL)";
  288. 2440 [153]"(NULL)def     $29.95 for  3 disk issues        list(NULL)";
  289. 2450 [153]"(NULL)def                                      list(NULL)";
  290. 2460 [153]"(NULL)def                                      list(NULL)";
  291. 2470 [153]"(NULL)def                                      list(NULL)";
  292. 2480 [153]"(NULL)def                                      list(NULL)";
  293. 2490 [153]"(NULL)def                                      list(NULL)";
  294. 2500 [153]"-tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan<";
  295. 2510 [153]"(NULL) (NULL)val(NULL)(NULL)(NULL)(NULL)=lenontinue         (NULL)=(NULL)rint ascorm (NULL)";
  296. 2520 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan";
  297. 2530 [161]k$:[139]k$[178]""[167]2530
  298. 2540 [139]k$[178][199](13)[167]4000
  299. 2550 [139]k$[178]"p"[167][141]2780
  300. 2555 [139] f1 [167] 2290
  301. 2560 [137]2530
  302. 2570 :
  303. 2580 [141]1370:[139]f1[167][141]3310:[142]
  304. 2590 [159] 4,4,1:[160] 4
  305. 2595 [139] st[179][177]0 [167] [141]3600:[142]
  306. 2596 [159] 4,4,7
  307. 2597 [152]4,[199](10)[199](10)
  308. 2600 [152]4,""[166]26)"(NULL)p(NULL)ime peekack right$ssue (NULL)rder ascorm"[199](10)
  309. 2610 [152]4,""[166]10)"(NULL)val(NULL), please send me these back issues ";
  310. 2620 [152]4,"of (NULL)p(NULL)ime immediately!"[199](10)
  311. 2630 in$[178]"               "
  312. 2640 [152]4,in$;""[166]14)"( ) any 6 for $69.95"
  313. 2650 [152]4,in$;""[166]14)"( ) any 3 for $39.95"
  314. 2660 [152]4,in$;""[166]14)"( ) any 1 for $15.95"
  315. 2670 [152]4
  316. 2680 in$[178]"          "
  317. 2690 [152]4,in$;"(NULL)lease add $2.50 for postage and handling."
  318. 2700 [152]4
  319. 2710 [152]4,in$;"(NULL)lease circle the disks you would like."
  320. 2720 [152]4
  321. 2730 [152]4,[199](10)in$;"     (NULL)(NULL)(NULL) 1:   1   2   3   4   5";
  322. 2735 [152]4,"   6   7   8   9  10  11"
  323. 2740 [152]4
  324. 2750 [141]3010
  325. 2760 [160]4:[141]3310:[142]
  326. 2770 :
  327. 2780 [141]1370:[139]f1[167][141]3310:[142]
  328. 2790 [159] 4,4,1:[160] 4
  329. 2795 [139] st[179][177]0 [167] [141] 3600:[142]
  330. 2796 [159] 4,4,7
  331. 2800 [152]4,[199](10)[199](10)
  332. 2805 [152]4,""[166]27)"(NULL)p(NULL)ime (NULL)enewal (NULL)rder ascorm"[199](10)
  333. 2810 [152]4,"         (NULL)val(NULL), please renew my subscription to (NULL)p(NULL)ime immediately!
  334. 2820 print#4,chr$(10)
  335. 2830 in$="               "
  336. 2840 print#4,""spc(23)"( ) 24 disk issues for $119.95
  337. 2850 [152]4,""[166]23)"( ) 12 disk issues for $69.95
  338. 2860 print#4,""spc(23)"( )  6 disk issues for $49.95
  339. 2870 [152]4,""[166]23)"( )  3 disk issues for $29.95
  340. 2890 gosub3010
  341. 2900 close4:gosub3310:return
  342. 2910 :
  343. 2920 in$="                              "
  344. 2930 print#4,""spc(14);"[213]p[212]ime * 174 [194]ellevue [193]venue * [206]ewport * [210][201] * 02840
  345. 2990 [142]
  346. 3000 :
  347. 3010 in$[178]"          "
  348. 3020 ln$[178]"------------------------------------------------------------"
  349. 3030 [152]4
  350. 3040 [152]4
  351. 3050 [152]4,in$;"   ( ) (NULL)ayment enclosed.  ((NULL)ake checks payable to (NULL)p(NULL)ime)"
  352. 3060 [152]4
  353. 3070 [152]4,in$;"peekill my:  ( ) (NULL)asterlenard    ( ) (NULL)right$(NULL)atn    ( ) atnmerican valxpress"
  354. 3080 [152]4
  355. 3090 [152]4,in$;ln$
  356. 3100 [152]4,in$;"atncct #                                      valxp str$ate"
  357. 3110 [152]4,in$;ln$
  358. 3120 [152]4,in$;"(NULL)ignature"
  359. 3130 [152]4,in$;ln$
  360. 3140 [152]4,in$;"(NULL)ame"
  361. 3150 [152]4,in$;ln$
  362. 3160 [152]4,in$;"atnddress
  363. 3170 print#4,in$;ln$
  364. 3180 print#4,in$;"[195]ity                        [211]tate           [218]ip
  365. 3190 [152]4,in$;ln$
  366. 3200 [152]4,in$;"(NULL)hone"
  367. 3210 [152]4,in$;ln$
  368. 3230 [152]4,[199](10)
  369. 3240 [152]4,[166]21)"( ) lenommodore 64    ( ) lenommodore 128"
  370. 3245 [152]4,[199](10)[199](10)
  371. 3250 [141] 2920:[152]4,[199](12)
  372. 3260 [142]
  373. 3270 :
  374. 3280 [153]"list (NULL)val(NULL)(NULL)(NULL)(NULL)=lenontinue         (NULL)=(NULL)rint ascile"
  375. 3290 [142]
  376. 3300 :
  377. 3310 [153]"list (NULL)val(NULL)(NULL)(NULL)(NULL)=lenontinue         (NULL)=(NULL)rint ascorm"
  378. 3320 [142]
  379. 3500 [153][163]9)"onononononlistortantantantantantantantantantantantantantantantantantantan^"
  380. 3510 [153][163]9)"list(NULL)def                   list(NULL)"
  381. 3520 [153][163]9)"list(NULL)def (NULL)eturn to (NULL)p(NULL)ime? list(NULL)"
  382. 3530 [153][163]9)"list(NULL)def                   list(NULL)"
  383. 3532 [153][163]9)"list(NULL)def       [(NULL)/(NULL)]       list(NULL)"
  384. 3535 [153][163]9)"list(NULL)def                   list(NULL)"
  385. 3540 [153][163]9)"list/tantantantantantantantantantantantantantantantantantantanexp";
  386. 3550 [161] a$:[139] a$[179][177]"y" [175] a$[179][177]"n" [167] 3550
  387. 3560 [139] a$[178]"n" [167] [142]
  388. 3562 a[178]0:[129] i[178]32768 [164] 32775:a[178]a[170][194](i):[130]
  389. 3566 [139] a[179][177]859 [167] [153]"load":[128]
  390. 3570 [158] 8[172]4096[170]4:[143] uptime
  391. 3600 f1[178]1:[153]""[163]9)"listortantantantantantantantantantantantantantantantantantantantan^"
  392. 3610 [153][163]9)"on(NULL)def                    list(NULL)"
  393. 3620 [153][163]9)"(NULL)def str$evice not present list(NULL)"
  394. 3630 [153][163]9)"on(NULL)def                    list(NULL)"
  395. 3640 [153][163]9)"(NULL)def (NULL)val(NULL)(NULL)(NULL)(NULL) to continue list(NULL)"
  396. 3650 [153][163]9)"on(NULL)def                    list(NULL)"
  397. 3660 [153][163]9)"list/tantantantantantantantantantantantantantantantantantantantanexp"
  398. 3670 [161] a$:[139] a$[179][177][199](13) [167] 3670
  399. 3680 [142]
  400. 3700 [153][163]6)"ononononononlistortantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  401. 3710 [153][163]6)"(NULL)def                          list(NULL)"
  402. 3720 [153][163]6)"(NULL)def str$isk valrror:              list(NULL)"
  403. 3730 [153][163]6)"(NULL)def                          list(NULL)"
  404. 3740 [153][163]6)"(NULL)def                          list(NULL)"
  405. 3745 [153][163]8)"ondef"e$
  406. 3750 [153][163]6)"list(NULL)def                          list(NULL)"
  407. 3760 [153][163]6)"(NULL)def (NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL) to continue list(NULL)"
  408. 3770 [153][163]6)"(NULL)def   or asc8 to for (NULL)p(NULL)ime    list(NULL)"
  409. 3775 [153][163]6)"(NULL)def                          list(NULL)"
  410. 3780 [153][163]6)"/tantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  411. 3790 [161] a$:[139] a$[179][177][199](13) [175] a$[179][177]"restore" [167] 3790
  412. 3795 [139] a$[178]"restore" [167] [141] 3500:[142]
  413. 3800 [142]
  414. 4000 [153]"(NULL)      (NULL)(NULL)(NULL)right$(NULL)val (NULL)rdering right$nformation     (NULL)";
  415. 4010 [153]"-tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan<";
  416. 4020 [153]"(NULL)def                                      list(NULL)";
  417. 4030 [153]"(NULL)def                                      list(NULL)";
  418. 4040 [153]"(NULL)def    (NULL)emember that all orders are      list(NULL)";
  419. 4050 [153]"(NULL)def processed within 24 hours of receipt list(NULL)";
  420. 4060 [153]"(NULL)def and that all disks are 100%          list(NULL)";
  421. 4070 [153]"(NULL)def satisfaction guaranteed.             list(NULL)";
  422. 4080 [153]"(NULL)def                                      list(NULL)";
  423. 4090 [153]"(NULL)def    (NULL)eturn your completed form in     list(NULL)";
  424. 4100 [153]"(NULL)def the enclosed business reply envelope list(NULL)";
  425. 4110 [153]"(NULL)def or mail to:                          list(NULL)";
  426. 4120 [153]"(NULL)def                                      list(NULL)";
  427. 4130 [153]"(NULL)def        (NULL)p(NULL)ime                        list(NULL)";
  428. 4140 [153]"(NULL)def        (NULL).(NULL). peekox 299                  list(NULL)";
  429. 4150 [153]"(NULL)def        (NULL)ewport, (NULL)right$ 02840             list(NULL)";
  430. 4160 [153]"(NULL)def                                      list(NULL)";
  431. 4170 [153]"(NULL)def                                      list(NULL)";
  432. 4180 [153]"(NULL)def                                      list(NULL)";
  433. 4190 [153]"(NULL)def                                      list(NULL)";
  434. 4200 [153]"(NULL)def                                      list(NULL)";
  435. 4210 [153]"-tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan<";
  436. 4220 [153]"(NULL)           (NULL)val(NULL)(NULL)(NULL)(NULL)=(NULL)ain (NULL)enu           (NULL)";
  437. 4230 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan";
  438. 4240 [161]k$:[139]k$[179][177][199](13)[167]4240
  439. 4250 [142]
  440.